home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v7n14.arc / NOPRTSC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-06  |  428 b   |  17 lines
  1. {$R+,C-}
  2. PROGRAM No_PrtSc;
  3. VAR
  4.   Printing : Boolean ABSOLUTE $50 : 0;
  5.   CH       : Char;
  6. CONST
  7.   status : ARRAY[Boolean] OF STRING[7] = ('enable', 'disable');
  8. BEGIN
  9.   WriteLn('The PrtSc key is ', status[Printing], 'd.');
  10.   Write('Shall I ', status[NOT Printing], ' it? (Y/N)');
  11.   REPEAT
  12.     Read(Kbd, CH);
  13.     CH := UpCase(CH);
  14.   UNTIL (CH = 'Y') OR (CH = 'N');
  15.   IF CH = 'Y' THEN Printing := NOT Printing;
  16. END.
  17.